home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-06-06 | 1.6 KB | 34 lines | [TEXT/ScoM] |
- ; scene sequences for sci-fi writing
-
- ; how to make fractal progressions for a book?
-
- ; define a structure
-
- (def-grammar 'structure
- a (b c d)
- b (c e)
- c (b a)
- )
-
- ; when structure is generated it results into symbol list
- ; (gen-notrans a 4 'structure)
- ; --> (a b c b c e a b c d e c b c b a e a b c e c b a d d)
-
- ; define a neuron that converts each symbol into a meaningful scene type
-
- (def-neuron section-convert
- (in 1 'a) 'action
- (in 1 'b) 'rest
- (in 1 'c) 'time-warp
- (in 1 'd) 'sex&violence
- (otherwise 'free)
- )
-
- ; generate recursive progression structure and convert it to the scene types
-
- (run-neuron 'section-convert
- (gen-notrans a 7 'structure))
- -> (action rest time-warp rest time-warp rest time-warp rest action free action rest time-warp free time-warp rest action sex&violence free action rest time-warp rest time-warp free action rest time-warp sex&violence free time-warp rest time-warp rest action free action rest time-warp free time-warp rest action sex&violence sex&violence free time-warp rest time-warp rest time-warp rest time-warp free action rest time-warp sex&violence free action rest time-warp rest action free time-warp rest time-warp free action rest time-warp sex&violence sex&violence free action rest time-warp rest time-warp rest action free action rest time-warp free time-warp rest action sex&violence free time-warp rest time-warp rest time-warp free action rest time-warp sex&violence free action rest time-warp rest action free time-warp rest time-warp free action rest time-warp sex&violence sex&violence sex&violence sex&violence)
-
- ; then write the book
-